home *** CD-ROM | disk | FTP | other *** search
/ Skunkware 5 / Skunkware 5.iso / src / Games / warp / warp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1995-05-03  |  10.0 KB  |  407 lines
  1. char rcsid[] = "@(#)$Header: warp.c,v 7.0.1.3 86/12/12 17:07:44 lwall Exp $";
  2.  
  3. /*    warp -- a real-time space war program
  4.  *    author: Larry Wall
  5.  *    helpers: Jonathan and Mark Biggar, and Dan Faigin
  6.  *    special thanks to my sweetie Gloria who suggested the Planet Crusher
  7.  *
  8.  *    Copyright (C) 1986, Larry Wall
  9.  *
  10.  *    This program may be copied as long as this copyright notice is
  11.  *    included, and as long as it is not being copied for purposes
  12.  *    of profit.  If you want to modify this program in any way other
  13.  *    than normal configuration changes, common decency would suggest
  14.  *    that you also modify the name of the program so that my good name
  15.  *    (what there is of it) is not impugned.  (Calling it something like
  16.  *    "warpx" or "superwarp" would be fine.)  Also, give it another
  17.  *    WARPDIR so that the scoreboards don't get confused.
  18.  *
  19.  * version 5.0  04/20/83
  20.  *         5.1  05/05/83    various tidbits
  21.  *       5.2  05/12/83    VAX -> vax, ifdef'ed a SIGCONT
  22.  *       5.3  05/24/83    RCS
  23.  *
  24.  * $Log:    warp.c,v $
  25.  * Revision 7.0.1.3  86/12/12  17:07:44  lwall
  26.  * Baseline for net release.
  27.  * 
  28.  * Revision 7.0.1.2  86/10/20  12:08:00  lwall
  29.  * Made all exits reset tty.
  30.  * 
  31.  * Revision 7.0.1.1  86/10/16  10:54:13  lwall
  32.  * Added Damage.  Fixed random bugs.
  33.  * 
  34.  * Revision 7.0  86/10/08  15:14:47  lwall
  35.  * Split into separate files.  Added amoebas and pirates.
  36.  * 
  37.  * Revision 6.4  83/12/16  13:11:45  lwall
  38.  * Handled 15 bit random number generators.
  39.  * 
  40.  * Fixed array overflow bug on multiple zaps.
  41.  * 
  42.  * Multiple zaps now consolidated to minimize output.
  43.  * 
  44.  * Tholian jackpot games outlawed under difficulty 15.
  45.  * 
  46.  * Revision 6.3  83/08/24  11:17:49  lwall
  47.  * Fixed array overflow bug on multiple zap.
  48.  * 
  49.  * Revision 6.2  83/08/23  18:06:37  lwall
  50.  * Added zap command.
  51.  * Warp -s should now work on dumb terminals
  52.  * Specifying difficulty >= 40 now just makes it a special game.
  53.  * SIGTTOU #ifdef'ed.
  54.  * No-delay read provided as alternative to FIONREAD.
  55.  * Warp won't report "-1 obsolete" when there are no Enterprises left.
  56.  * Some high-difficulty tuning.
  57.  * 
  58.  * Revision 6.1  83/08/17  08:49:03  lwall
  59.  * Fixed obscure bug in storing UP that caused a %. in CM to occasionally
  60.  * foist garbage onto the screen.
  61.  * 
  62.  * Revision 6.0  83/08/08  17:09:26  lwall
  63.  * New baseline version for net release.
  64.  * 
  65.  * Revision 5.5  83/08/01  10:59:56  lwall
  66.  * Cloaking for the Enterprise.
  67.  * Difficulty now goes to 99, and many activities depending on difficulty
  68.  *     have been adjusted in frequency.
  69.  * Simplified exit sequence, and reduced dependencies on control
  70.  *     characters.  You needn't see the scoreboard if you don't want to.
  71.  * Hitting i,w,c, or v switches to Enterprise.  Hitting p switches to Base.
  72.  * Excessive use of q is not allowed.
  73.  * Excessive use of D is not allowed.
  74.  * Scoreboard may depend on either full name or login name.
  75.  * Integrated scoreboard lister.  Login name now shows up on scoreboard.
  76.  * "Hidden" startup options are now upper case.
  77.  * Checks upon startup for no cursor movement, or screen too small.
  78.  * Checks upon startup that WARPDIR is correctly protected, and that warp
  79.  *     is running setuid.  As an additional bonus this prevents root from
  80.  *     running warp, which mucks things up, UN*X be blessed.
  81.  * All gets's turned into fgets's for safety.
  82.  * Bonus Enterprises and Bases.
  83.  * Escalating bonuses for saving Base and Enterprise.
  84.  * Escalating Enterprise energy.
  85.  * Turbolasers decrease with distance.
  86.  * Really smart enemies can see through stars occasionally.
  87.  * Occasional Tholian jackpot waves.  Tholians are a trifle nastier.
  88.  * Choleric Gorns.
  89.  * An O or o can miss seeing you.  Enemies can avoid a stationary O, o, or X.
  90.  * Warp 3 enemies and other nastinesses are possible in massacre mode.
  91.  * Enemies that decide to navigate when they see you can do other things than
  92.  *     just come toward you.
  93.  * Gorns occasionally launch a salvo for the fun of it.
  94.  * Only star and enemy explosions can keep the round going now.
  95.  * Bounces don't always go back to starting spot now.
  96.  * Better full name processing.  USG quirks handled.  & substitution also
  97.  *     handled now (whoever dreamed up that one must have been in the middle
  98.  *     of the night before the morning after).
  99.  * Catch ^D on fgets.
  100.  * Version number printer.
  101.  * Less signal catching during debugging.
  102.  * 
  103.  * Revision 5.4  83/06/24  09:28:38  lwall
  104.  * 16 bit random number generators are now supported.
  105.  * Made warp not blow up on a null save file.
  106.  * Warp now prints E and B before the stars.
  107.  * Fixed bug which caused torp count to get decremented even when no torp
  108.  *     was launched because of an obstacle.
  109.  * Put %<n>ld formats where appropriate.
  110.  * Fixed E: 0  0 bug on refresh.
  111.  * 
  112.  * Revision 5.3  83/05/24  14:03:10  lwall
  113.  * Starting RCS
  114.  * 
  115.  */
  116.  
  117. #include "INTERN.h"
  118. #include "warp.h"
  119. #include "EXTERN.h"
  120. #include "bang.h"
  121. #include "init.h"
  122. #include "intrp.h"
  123. #include "object.h"
  124. #include "move.h"
  125. #include "play.h"
  126. #include "score.h"
  127. #include "sig.h"
  128. #include "term.h"
  129. #include "them.h"
  130. #include "us.h"
  131. #include "util.h"
  132. #include "version.h"
  133. #include "weapon.h"
  134.  
  135. main(argc,argv)
  136. int argc;
  137. char *argv[];
  138. {
  139.     char tmp, *s, *tcbuf;
  140.  
  141.     int i;
  142.  
  143.     FILE *savfil;
  144.  
  145. #if RANDBITS > 16
  146.     for (i=100; i; i--)
  147.     if (rand() >= 65536)
  148.         goto rand_ok;
  149.     printf("Recompile with RANDBITS = 15 or 16.\n");
  150.     exit(1);
  151. #else
  152. #if RANDBITS > 15
  153.     for (i=100; i; i--) {
  154.     if (rand() >= 32768)
  155.         goto rand_ok;
  156.     }
  157.     printf("Recompile with RANDBITS = 15.\n");
  158.     exit(1);
  159. #endif
  160. #endif
  161. rand_ok:
  162.  
  163. #ifdef lint  /* to suppress "defined but never used" */
  164. # ifdef SIGTSTP
  165.     (void)stop_catcher();
  166. # endif
  167. # ifdef SIGCONT
  168.     (void)cont_catcher();
  169. # endif
  170. #endif
  171.  
  172.     while (--argc > 0 && (*++argv)[0] == '-')
  173.     for (s = argv[0]+1; *s != '\0'; s++)
  174.         switch (*s) {
  175.         case '&':
  176.         amoebaspec = TRUE;
  177.         beginner = TRUE;
  178.         break;
  179.         case 'A':
  180.         apolspec = TRUE;
  181.         beginner = TRUE;
  182.         break;
  183.         case 'b':
  184.         beginner = TRUE;
  185.         break;
  186.         case 'C':
  187.         crushspec = TRUE;
  188.         beginner = TRUE;
  189.         break;
  190.         case 'D':
  191.         debugging = TRUE;
  192. #ifdef DEBUGGING
  193.         debug = atoi(++s);
  194. #endif
  195.         s += strlen(s)-1;
  196.         break;
  197.         case 'd':
  198.         s++;
  199.         if (*s == '=') s++;
  200.         ismarts = atoi(s);
  201.         if (ismarts <= 0)
  202.             ismarts = 1;
  203.         if (ismarts > 99)
  204.             ismarts = 99;
  205.         if (ismarts > 40)
  206.             beginner = TRUE;
  207.         s += strlen(s)-1;
  208.         break;
  209.         case 'E':
  210.         klingspec = TRUE;
  211.         beginner = TRUE;
  212.         s++;
  213.         if (*s == '=') s++;
  214.         inumenemies = atoi(s);
  215.         s += strlen(s)-1;
  216.         break;
  217.         case 'F':
  218.         friendspec = TRUE;
  219.         beginner = TRUE;
  220.         s++;
  221.         if (*s == '=') s++;
  222.         inumfriends = atoi(s);
  223.         s += strlen(s)-1;
  224.         break;
  225.         case 'G':
  226.         gornspec = TRUE;
  227.         beginner = TRUE;
  228.         break;
  229.         case 'l':
  230.         lowspeed = TRUE;
  231.         break;
  232.         case 'm':
  233.         metakey = TRUE;
  234.         break;
  235.         case 'M':
  236.         massacre = TRUE;
  237.         break;
  238.         case 'P':
  239.         piratespec = TRUE;
  240.         beginner = TRUE;
  241.         s++;
  242.         if (*s == '=') s++;
  243.         inumpirates = atoi(s);
  244.         s += strlen(s)-1;
  245.         break;
  246.         case 'S':
  247.         prespec = TRUE;
  248.         beginner = TRUE;
  249.         s++;
  250.         if (*s == '=') s++;
  251.         if (*s)
  252.             prescene = atoi(s);
  253.         else
  254.             prescene = -1;
  255.         s += strlen(s)-1;
  256.         break;
  257.         case 'R':
  258.         romspec = TRUE;
  259.         beginner = TRUE;
  260.         break;
  261.         case '*':
  262.         starspec = TRUE;
  263.         beginner = TRUE;
  264.         s++;
  265.         if (*s == '=') s++;
  266.         inumstars = atoi(s);
  267.         s += strlen(s)-1;
  268.         break;
  269.         case 's':
  270.         scorespec = TRUE;
  271.         break;
  272.         case 'T':
  273.         tholspec = TRUE;
  274.         beginner = TRUE;
  275.         break;
  276.         case 'x':
  277.         experimenting = TRUE;
  278.         break;
  279.         case 'v':
  280.         version();
  281.         exit(0);
  282.         break;
  283.         default:
  284.         fprintf(stderr,"warp: illegal option %c\n", *s);
  285.         fprintf(stderr, "Usage: warp -dn -b -x -v -s\n");
  286.         exit(1);
  287.         }
  288.     if (argc != 0) {
  289.     fprintf(stderr, "Usage: warp -dn -b -x -v -s\n");
  290.     exit(1);
  291.     }
  292.     bang_init();
  293.     move_init();
  294.     object_init();
  295.     play_init();
  296.     them_init();
  297.     us_init();
  298.     util_init();
  299.     weapon_init();
  300.  
  301.     tcbuf = malloc(1024);
  302.     intrp_init(tcbuf);
  303.  
  304.     if (chdir(warplib) < 0)
  305.     fprintf(stderr,nocd,warplib);
  306.  
  307.     term_init();
  308.  
  309.     term_set(tcbuf);
  310.     free(tcbuf);
  311.  
  312.     umask(022);     /* mustn't rely on incoming umask--could be 033 which */
  313.             /* would disable people from running wscore */
  314.  
  315.     score_init();
  316.  
  317.     sig_init();
  318.  
  319.     if (totalscore) {
  320.     clear();
  321.     mvaddstr(12,25,"*** restoring saved game ***");
  322.     roundsleep(1);
  323.     }
  324.  
  325.     srand(getpid());
  326.  
  327.     do {
  328.     for (keepgoing = TRUE;;) {
  329.         if (!experimenting) {
  330.         if ((savfil = fopen(savefilename,"w")) == NULL) {
  331.             resetty();
  332.             printf("Can't open savefile\r\n");
  333.             finalize(1);
  334.         }
  335.         fprintf(savfil,
  336.             "%-8s %10ld, %2d,%5d,%2d,%2d,%3d %c%c%c%c%c%c%c%c%c\n",
  337.             logname, totalscore, smarts, cumsmarts,
  338.             numents, numbases, wave,
  339.             apolspec ? 'a' : ' ',
  340.             beginner   ? 'b' : ' ',
  341.             crushspec  ? 'c' : ' ',
  342.             gornspec   ? 'g' : ' ',
  343.             massacre   ? 'm' : ' ',
  344.             romspec    ? 'r' : ' ',
  345.             tholspec   ? 't' : ' ',
  346.             lowspeed   ? 'l' : ' ',
  347.             amoebaspec ? '&' : ' '
  348.         );
  349.         fprintf(savfil,"         running on %s, process #%d\n",
  350.             term+5,getpid());
  351.         Fclose(savfil);
  352.         }
  353.  
  354.         lastscore = totalscore;
  355.         initialize();
  356.         play();
  357.         cumsmarts += smarts;
  358.         wavescore();
  359.         if (numents<=0 && numbases<=0)
  360.         keepgoing = FALSE;
  361.       if (!keepgoing) break;
  362.         do {
  363.         if (experimenting) {
  364.             mvaddstr(23,15,
  365.               "      [Hit space to continue, 'q' to quit]       ");
  366.         }
  367.         else {
  368.             mvaddstr(23,15,
  369.               "[Hit space to continue, 's' to save, 'q' to quit]");
  370.         }
  371.         sleep(1);
  372.         Fflush(stdout);
  373.         eat_typeahead();
  374.         getcmd(&tmp);
  375.         if (tmp == BREAKCH || tmp == INTRCH) {
  376.             mvaddstr(23,15,
  377.               "                                                 ");
  378.             mvaddstr(23,33,
  379.               "Really quit? ");
  380.             getcmd(&tmp);
  381.             if (tmp == 'y' || tmp == 'Y')
  382.             tmp = 'q';
  383.             else
  384.             tmp = 1;
  385.         }
  386.         } while (tmp != INTRCH && tmp != BREAKCH && !index(" qQs",tmp));
  387.       if (tmp != ' ' && tmp != 's') break;
  388.         if (!beginner && smarts < 20)
  389.         smarts += 4;
  390.         else if (!beginner && smarts < 35)
  391.         smarts += 2;
  392.         else if (smarts < 99)
  393.         smarts++;
  394.       if (tmp == 's') save_game();
  395.     }
  396.     score();
  397.  
  398.     } while (justonemoretime);
  399.  
  400.     if (!experimenting)
  401.     unlink(savefilename);
  402.  
  403.     clear();
  404.     resetty();
  405.     exit(0);
  406. }
  407.